home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf / DiskVerwaltung / DiskVerwaltung (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  4KB  |  189 lines
  1. Anfang:
  2. SCREEN 2,640,256,2,2
  3. WINDOW 2,,,0,2
  4. DIM t(15)
  5. Aufbau:
  6. PALETTE 0,0,0,0
  7. PALETTE 1,0.93,0.2,0
  8. PALETTE 2,1,0.13,0.93
  9. PALETTE 3,1,1,0.34
  10. PALETTE 4,0,0,0
  11. PALETTE 5,0.73,0.73,0.73
  12. PALETTE 6,1,1,1
  13. PALETTE 7,0.73,1,0
  14. LINE (0,10)-(640,10),2
  15. COLOR 2,0:PRINT "               Disketten - Verwaltung - by - Benny - Benzn "
  16. LINE (0,33)-(640,33),2
  17. COLOR 3,0:LOCATE 4,2:PRINT "N"
  18. LOCATE 4,3:PRINT "a"
  19. LOCATE 4,4:PRINT "m"
  20. LOCATE 4,5:PRINT "e"
  21. COLOR 1,0:LOCATE 4,6:PRINT ":"
  22. LOCATE 4,50:PRINT "Datum:";DATE$
  23. LINE (0,53)-(640,53),2
  24. COLOR 3,0:LOCATE 6,1:PRINT "                    Edieren des inhaltes der Diskette"
  25. LINE (0,213)-(640,213),2
  26. COLOR 3,0:LOCATE 28,1:PRINT "                      -I-N-F-O-R-M-A-T-I-O-N-E-N-"
  27. LINE (0,225)-(640,225),2
  28. LOCATE 30,2:PRINT "        F1 = Edieren  F2 = Laden  F3 = New  F4 = Drucken  F5 = Quit"
  29.  
  30. loop:
  31. ko=0
  32. taste$=INKEY$
  33. IF taste$=CHR$(129) THEN GOTO add
  34. IF taste$=CHR$(130) THEN GOTO loa
  35. IF taste$=CHR$(131) THEN GOTO neu
  36. IF taste$=CHR$(132) THEN GOTO dru
  37. IF taste$=CHR$(133) THEN SYSTEM
  38. GOTO loop
  39.  
  40. add:
  41. COLOR 2,0:LOCATE 30,15:PRINT "Edieren"
  42. COLOR 3,0
  43. LOCATE 4,7:LINE INPUT "";diskname$
  44. OPEN "o",#1,diskname$
  45. LOCATE 8,2:LINE INPUT "";inhalt$
  46. IF inhalt$="e" THEN GOTO kap
  47. LOCATE 9,2:LINE INPUT "";inhalt1$
  48. IF inhalt1$="e" THEN GOTO kap
  49. LOCATE 10,2:LINE INPUT "";inhalt2$
  50. IF inhalt2$="e" THEN GOTO kap
  51. LOCATE 11,2:LINE INPUT "";inhalt3$
  52. IF inhalt3$="e" THEN GOTO kap
  53. LOCATE 12,2:LINE INPUT "";inhalt4$
  54. IF inhalt4$="e" THEN GOTO kap
  55. LOCATE 13,2:LINE INPUT "";inhalt5$
  56. IF inhalt5$="e" THEN GOTO kap
  57. LOCATE 14,2:LINE INPUT "";inhalt6$
  58. IF inhalt6$="e" THEN GOTO kap
  59. LOCATE 15,2:LINE INPUT "";inhalt7$
  60. IF inhalt7$="e" THEN GOTO kap
  61. LOCATE 16,2:LINE INPUT "";inhalt8$
  62. IF inhalt8$="e" THEN GOTO kap
  63. LOCATE 17,2:LINE INPUT "";inhalt9$
  64. IF inhalt9$="e" THEN GOTO kap
  65. LOCATE 18,2:LINE INPUT "";inhalt10$
  66. IF inhalt10$="e" THEN GOTO kap
  67. LOCATE 19,2:LINE INPUT "";inhalt11$
  68. IF inhalt11$="e" THEN GOTO kap
  69. LOCATE 20,2:LINE INPUT "";inhalt12$
  70. IF inhalt12$="e" THEN GOTO kap
  71. LOCATE 21,2:LINE INPUT "";inhalt13$
  72. IF inhalt13$="e" THEN GOTO kap
  73. LOCATE 22,2:LINE INPUT "";inhalt14$
  74. IF inhalt14$="e" THEN GOTO kap
  75. LOCATE 23,2:LINE INPUT "";inhalt15$
  76. kap:
  77. WRITE#1,inhalt$
  78. WRITE#1,inhalt1$
  79. WRITE#1,inhalt2$
  80. WRITE#1,inhalt3$
  81. WRITE#1,inhalt4$
  82. WRITE#1,inhalt5$
  83. WRITE#1,inhalt6$
  84. WRITE#1,inhalt7$
  85. WRITE#1,inhalt8$
  86. WRITE#1,inhalt9$
  87. WRITE#1,inhalt10$
  88. WRITE#1,inhalt11$
  89. WRITE#1,inhalt12$
  90. WRITE#1,inhalt13$
  91. WRITE#1,inhalt14$
  92. WRITE#1,inhalt15$
  93.  
  94. CLEAR
  95.  
  96. COLOR 3,0:LOCATE 30,15:PRINT "Edieren"
  97. CLOSE #1
  98.  
  99. GOTO loop
  100.  
  101. loa:
  102. ko=1
  103. COLOR 2,0:LOCATE 30,29:PRINT "Laden"
  104. COLOR 3,0
  105. LOCATE 4,7:LINE INPUT "";diskname$
  106. ON ERROR GOTO fehler
  107. OPEN diskname$ FOR INPUT AS #1
  108. INPUT#1,inhalt$
  109. INPUT#1,inhalt1$
  110. INPUT#1,inhalt2$
  111. INPUT#1,inhalt3$
  112. INPUT#1,inhalt4$
  113. INPUT#1,inhalt5$
  114. INPUT#1,inhalt6$
  115. INPUT#1,inhalt7$
  116. INPUT#1,inhalt8$
  117. INPUT#1,inhalt9$
  118. INPUT#1,inhalt10$
  119. INPUT#1,inhalt11$
  120. INPUT#1,inhalt12$
  121. INPUT#1,inhalt13$
  122. INPUT#1,inhalt14$
  123. INPUT#1,inhalt15$
  124.  
  125. CLOSE #1
  126. LOCATE 8,2:PRINT inhalt$
  127. LOCATE 9,2:PRINT inhalt1$
  128. LOCATE 10,2:PRINT inhalt2$
  129. LOCATE 11,2:PRINT inhalt3$
  130. LOCATE 12,2:PRINT inhalt4$
  131. LOCATE 13,2:PRINT inhalt5$
  132. LOCATE 14,2:PRINT inhalt6$
  133. LOCATE 15,2:PRINT inhalt7$
  134. LOCATE 16,2:PRINT inhalt8$
  135. LOCATE 17,2:PRINT inhalt9$
  136. LOCATE 18,2:PRINT inhalt10$
  137. LOCATE 19,2:PRINT inhalt11$
  138. LOCATE 20,2:PRINT inhalt12$
  139. LOCATE 21,2:PRINT inhalt13$
  140. LOCATE 22,2:PRINT inhalt14$
  141. LOCATE 23,2:PRINT inhalt15$
  142. COLOR 3,0:LOCATE 30,29:PRINT "Laden" 
  143.  
  144. GOTO loop
  145.  
  146. neu:
  147. LOCATE 30,41:COLOR 2,0:PRINT "New" 
  148. s=0
  149. FOR o=1 TO 16
  150. s=s+1
  151. LOCATE 7+s,2:PRINT "                                                                            "
  152. NEXT o
  153. LOCATE 4,7:PRINT "                   "
  154. COLOR 3,0:LOCATE 30,41:PRINT "New"
  155. GOTO loop
  156.  
  157. fehler:
  158. BEEP:BEEP
  159. GOTO loop
  160.  
  161. dru:
  162. IF ko=1 THEN na$="Name:":fomo$=na$+disknam$ :ELSE na$="Name:":fomo$=na$+diskname$
  163. LOCATE 30,51:COLOR 2,0:PRINT "Drucken"
  164. OPEN "Par:" FOR OUTPUT AS 1
  165. PRINT #1,"Name:"
  166. PRINT #1,diskname$
  167. PRINT #1,"      Text    "
  168. PRINT #1,inhalt$
  169. PRINT #1,inhalt1$
  170. PRINT #1,inhalt2$
  171. PRINT #1,inhalt3$
  172. PRINT #1,inhalt4$
  173. PRINT #1,inhalt5$
  174. PRINT #1,inhalt6$
  175. PRINT #1,inhalt7$
  176. PRINT #1,inhalt8$
  177. PRINT #1,inhalt9$
  178. PRINT #1,inhalt10$
  179. PRINT #1,inhalt11$
  180. PRINT #1,inhalt12$
  181. PRINT #1,inhalt13$
  182. PRINT #1,inhalt14$
  183. PRINT #1,inhalt15$
  184. CLOSE 1
  185. COLOR 3,0:LOCATE 30,51:PRINT "Drucken"
  186. GOTO loop
  187.  
  188.  
  189.